home *** CD-ROM | disk | FTP | other *** search
/ Programmer Plus 2007 / Programmer-Plus-2007.iso / Programming / Visual Basic new SourceCode and Projects / Barcode Generator 2.0 / DBModule.bas < prev    next >
Encoding:
BASIC Source File  |  2000-06-22  |  387 b   |  13 lines
  1. Attribute VB_Name = "DBModule"
  2. Public Type DBcode
  3.    FullCode             As String * 13
  4.    Country              As String * 15
  5.    Manufacturer         As String * 20
  6.    Product              As String * 20
  7.    PicPath              As String * 512
  8. End Type
  9. Function GetPosition(text As String) As Long
  10. GetPosition = CLng(Mid$(text, 2, (InStr(1, text, ">") - 2)))
  11. End Function
  12.  
  13.